      MODULE employv2kp_v2
      USE employv2kp_v1
      CONTAINS
      INTEGER FUNCTION SSVSZ(VCNO,ERRMES)
      INTEGER VCNO
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSVSZ')
      IF(VCNO.EQ.1) THEN
       SSVSZ=SIZE(V00001)
      ELSE IF(VCNO.EQ.2) THEN
       SSVSZ=SIZE(V00002)
      ELSE IF(VCNO.EQ.3) THEN
       SSVSZ=SIZE(V00003)
      ELSE IF(VCNO.EQ.4) THEN
       SSVSZ=SIZE(V00004)
      ELSE IF(VCNO.EQ.5) THEN
       SSVSZ=SIZE(V00005)
      ELSE IF(VCNO.EQ.6) THEN
       SSVSZ=SIZE(V00006)
      ELSE IF(VCNO.EQ.7) THEN
       SSVSZ=SIZE(V00007)
      ELSE IF(VCNO.EQ.8) THEN
       SSVSZ=SIZE(V00008)
      ELSE IF(VCNO.EQ.9) THEN
       SSVSZ=SIZE(V00009)
      ELSE IF(VCNO.EQ.10) THEN
       SSVSZ=SIZE(V00010)
      ELSE IF(VCNO.EQ.11) THEN
       SSVSZ=SIZE(V00011)
      ELSE IF(VCNO.EQ.12) THEN
       SSVSZ=SIZE(V00012)
      ELSE IF(VCNO.EQ.13) THEN
       SSVSZ=SIZE(V00013)
      ELSE IF(VCNO.EQ.14) THEN
       SSVSZ=SIZE(V00014)
      ELSE IF(VCNO.EQ.15) THEN
       SSVSZ=SIZE(V00015)
      ELSE IF(VCNO.EQ.16) THEN
       SSVSZ=SIZE(V00016)
      ELSE IF(VCNO.EQ.17) THEN
       SSVSZ=SIZE(V00017)
      ELSE IF(VCNO.EQ.18) THEN
       SSVSZ=SIZE(V00018)
      ELSE IF(VCNO.EQ.19) THEN
       SSVSZ=SIZE(V00019)
      ELSE IF(VCNO.EQ.20) THEN
       SSVSZ=SIZE(V00020)
      ELSE IF(VCNO.EQ.21) THEN
       SSVSZ=SIZE(V00021)
      ELSE IF(VCNO.EQ.22) THEN
       SSVSZ=SIZE(V00022)
      ELSE IF(VCNO.EQ.23) THEN
       SSVSZ=SIZE(V00023)
      ELSE IF(VCNO.EQ.24) THEN
       SSVSZ=SIZE(V00024)
      ELSE IF(VCNO.EQ.25) THEN
       SSVSZ=SIZE(V00025)
      ELSE IF(VCNO.EQ.26) THEN
       SSVSZ=SIZE(V00026)
      ELSE IF(VCNO.EQ.27) THEN
       SSVSZ=SIZE(V00027)
      ELSE IF(VCNO.EQ.28) THEN
       SSVSZ=SIZE(V00028)
      ELSE IF(VCNO.EQ.29) THEN
       SSVSZ=SIZE(V00029)
      ELSE IF(VCNO.EQ.30) THEN
       SSVSZ=SIZE(V00030)
      ELSE IF(VCNO.EQ.31) THEN
       SSVSZ=SIZE(V00031)
      ELSE IF(VCNO.EQ.32) THEN
       SSVSZ=SIZE(V00032)
      ELSE IF(VCNO.EQ.33) THEN
       SSVSZ=SIZE(V00033)
      ELSE IF(VCNO.EQ.34) THEN
       SSVSZ=SIZE(V00034)
      ELSE IF(VCNO.EQ.35) THEN
       SSVSZ=SIZE(V00035)
      ELSE IF(VCNO.EQ.36) THEN
       SSVSZ=SIZE(V00036)
      ELSE IF(VCNO.EQ.37) THEN
       SSVSZ=SIZE(V00037)
      ELSE IF(VCNO.EQ.38) THEN
       SSVSZ=SIZE(V00038)
      ELSE IF(VCNO.EQ.39) THEN
       SSVSZ=SIZE(V00039)
      ELSE IF(VCNO.EQ.40) THEN
       SSVSZ=SIZE(V00040)
      ELSE IF(VCNO.EQ.41) THEN
       SSVSZ=SIZE(V00041)
      ELSE IF(VCNO.EQ.42) THEN
       SSVSZ=SIZE(V00042)
      ELSE IF(VCNO.EQ.43) THEN
       SSVSZ=SIZE(V00043)
      ELSE IF(VCNO.EQ.44) THEN
       SSVSZ=SIZE(V00044)
      ELSE IF(VCNO.EQ.45) THEN
       SSVSZ=SIZE(V00045)
      ELSE IF(VCNO.EQ.46) THEN
       SSVSZ=SIZE(V00046)
      ELSE IF(VCNO.EQ.47) THEN
       SSVSZ=SIZE(V00047)
      ELSE IF(VCNO.EQ.48) THEN
       SSVSZ=SIZE(V00048)
      ELSE IF(VCNO.EQ.49) THEN
       SSVSZ=SIZE(V00049)
      ELSE IF(VCNO.EQ.50) THEN
       SSVSZ=SIZE(V00050)
      ELSE IF(VCNO.EQ.51) THEN
       SSVSZ=SIZE(V00051)
      ELSE IF(VCNO.EQ.52) THEN
       SSVSZ=SIZE(V00052)
      ELSE IF(VCNO.EQ.53) THEN
       SSVSZ=SIZE(V00053)
      ELSE IF(VCNO.EQ.54) THEN
       SSVSZ=SIZE(V00054)
      ELSE IF(VCNO.EQ.55) THEN
       SSVSZ=SIZE(V00055)
      ELSE IF(VCNO.EQ.56) THEN
       SSVSZ=SIZE(V00056)
      ELSE IF(VCNO.EQ.57) THEN
       SSVSZ=SIZE(V00057)
      ELSE IF(VCNO.EQ.58) THEN
       SSVSZ=SIZE(V00058)
      ELSE
       ERRMES='E-Unexpected VCNO'
       GOTO 15500
      END IF
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15300 CONTINUE
      CALL GPPGER(0,ERRMES)
      GOTO 15500
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END FUNCTION SSVSZ
      END MODULE employv2kp_v2
